home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 137 / 137.d81 / b.star trip (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  210 lines
  1. 100 poke53280,0:poke53281,0
  2. 130 :
  3. 140 poke55,0:poke56,64:clr:a$=""
  4. 142 dv=peek(186):ifdv<8thendv=8
  5. 145 print"[147]":gosub60000
  6. 155 def fnd(i)=20-(len(an$(x,i))/2)
  7. 160 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 170 sys57812"package.o",dv,0:poke780,0:poke781,80:poke782,195:sys65493
  9. 180 sys57812"title.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  10. 182 sys57812"md print 9c00",dv,0:poke780,0:poke781,0:poke782,156:sys65493
  11. 190 poke251,64:poke252,224:poke253,204:sys51456
  12. 195 poke252,224:poke253,204:sys51459
  13. 200 ip=50000:unpack=51456:hgr=51459
  14. 210 ps=50006:ba=50009
  15. 212 diman$(10,20)
  16. 220 open2,dv,2,"star data,p,r"
  17. 222 j=1:k=0:fori=0to1:sysip,2,40:i=st
  18. 224 ifa$="*"thenj=j+1:k=0:goto228
  19. 226 k=k+1:an$(j,k)=a$
  20. 228 next:close2
  21. 230 readnp:dim r$(10),c(10)
  22. 240 forx=1tonp:readr$(x),c(x)
  23. 250 next
  24. 260 syshgr
  25. 270 forx=1tonp
  26. 280 gosub1810
  27. 285 fh=0:ifleft$(r$(x),2)="u."thenfh=1
  28. 290 sys57812r$(x),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  29. 310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
  30. 312 gosub2000
  31. 320 e(x)=peek(53281)
  32. 340 kk=0:poke198,0
  33. 355 ifz3=0then360
  34. 357 z4=z4+1:z4=z4and15
  35. 358 poke53281,z4
  36. 360 kk=kk+1:geta$:ifa$=""andkk<800then355
  37. 370 ifa$="q"ora$="[209]"thengosub 1250
  38. 380 ifa$="s"ora$="[211]"then 470
  39. 381 ifa$<>"p"anda$<>"[208]"then390
  40. 382 syshg:poke53281,0:print"[147][159]"
  41. 383 poke214,18:print:print"[199]et 8-pin printer ready and press [211][208][193][195][197]
  42. 384 [153]"   (NULL)ress any other key to (NULL)(NULL)(NULL) print
  43. 385 geta$:ifa$=""then385
  44. 386 sysun:syshg:ifa$<>" "then340
  45. 387 sys156*256
  46. 388 goto340
  47. 390 ifa$<>chr$(133)then410
  48. 400 z1=z1+1:z1=z1and15
  49. 405 poke53280,z1:goto340
  50. 410 ifa$<>chr$(134)then416
  51. 412 z2=z2+1:z2=z2and15
  52. 415 poke53281,z2:goto340
  53. 416 ifa$<>chr$(135)then420
  54. 417 z3=1-z3:ifz3=0thenpoke53281,e(x)
  55. 419 goto340
  56. 420 syshgr:print"[147]":poke198,0:next x
  57. 430 goto270
  58. 440 :
  59. 450 rem save koala pic
  60. 460 :
  61. 470 sys hgr
  62. 480 poke53280,0:poke53281,0
  63. 490 print"[147][154]":poke214,11:print
  64. 500 print"   [211]ave this unpacked picture? (y[154]/n[154])":poke198,0
  65. 510 geta$:ifa$<>"y"anda$<>"n"then510
  66. 520 ifa$="y"then560
  67. 530 goto1110
  68. 550 :
  69. 560 print"[147][154]":poke214,9:print
  70. 570 print" [201]nsert save disk and enter a filename."
  71. 580 :
  72. 590 print"       [206]ame : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]";
  73. 600 ln%=14:sp$="                "
  74. 610 gosub680:ifnm$=""then1110
  75. 620 nm$=left$(chr$(129)+nm$+sp$,15)
  76. 630 print"[154] save drive #: (8/9/0/1/2/3/4/5/6/7)
  77. 632 [161]a$:[139]a$[178]""[167]632
  78. 634 [139]a$[179]"0"[176]a$[177]"9"[167]632
  79. 636 [151]50178,[197](a$)[171]10[172]([197](a$)[179]8)
  80. 638 [137]790
  81. 650 [137]820
  82. 680 [143] --- input routine ---
  83. 690 nm$[178]"":x%[178]0:c%[178][194](646)
  84. 700 [153]"print#tocmd";:[151]646,c%
  85. 710 [161]a$:[139]a$[178]""[167]710
  86. 720 a%[178][198](a$)
  87. 730 [139]a%[178]20[175]x%[177]0[167]x%[178]x%[171]1:nm$[178][200](nm$,[195](nm$)[171]1):[153]" cmdcmd";:[137]700
  88. 740 [139]a%[178]20[167]710
  89. 750 [139]a%[178]13[167][153]" ":[142]
  90. 760 [139]x%[178]ln%[167]710
  91. 770 [139]a$[179]" "[176]a$[177]"z"[175]a$[179]"atn"[176]a$[177]"(NULL)"[176]a%[178]34[167]710
  92. 780 nm$[178]nm$[170]a$:[153]""a$;:x%[178]x%[170]1:[137]700
  93. 790 :
  94. 800 [143] -- check for 'file exists' --
  95. 810 :
  96. 820 [159]15,dv,15,"r0:"[170]nm$[170]"="[170]nm$:[132]15,er,er$:[160]15
  97. 830 [139]er[179][177]62[167][141]1160:[137]1110
  98. 840 :
  99. 850 [143] ---      save pic       ---
  100. 860 :
  101. 920 [141]2000:nm$[178]nm$[170]",p,w"
  102. 930 [158]ps,nm$:[158]hgr
  103. 950 :
  104. 960 [143] --- check for errors ---
  105. 970 :
  106. 980 [159]15,dv,15:[132]15,er,er$,y$,z$:[160]15
  107. 990 [139]er[167][141]1160:[137]490
  108. 1000 :
  109. 1010 [143] --    everything ok    ---
  110. 1020 :
  111. 1030 [151]53280,0:[151]53281,0
  112. 1040 [153]"loadcont":[151]214,7:[153]
  113. 1050 [153]"             (NULL)aving complete."
  114. 1060 [153]"   (NULL)eplace the disk if necessary"
  115. 1070 [153]"   then press a key to continue."
  116. 1080 [161]a$:[139]a$[179][177]" "[167]1080
  117. 1090 [159]15,dv,15,"r0:package.o=package.o":[132]15,er:[160]15
  118. 1100 [139]er[179][177]63 [167] 1040
  119. 1110 [158]hgr:[137]420
  120. 1120 :
  121. 1130 :
  122. 1140 :
  123. 1150 [143] ---   print dos error msg ---
  124. 1160 :
  125. 1170 [151]53280,.:[151]53281,.:[153]"load        for str$ right$ (NULL) (NULL)   val (NULL) (NULL) (NULL) (NULL) !
  126. 1180 poke214,10:print
  127. 1190 a$="[152][197]rror #"+str$(er)+"[152],"+er$
  128. 1200 x%=22-len(a$)/2:printtab(x%);a$
  129. 1210 poke214,21:print
  130. 1220 print"[152]        [208]ress [211][208][193][195][197][152] to continue."
  131. 1230 geta$:ifa$<>" "then1230
  132. 1240 return
  133. 1250 o=peek(53270)and16
  134. 1255 ifothensys51459
  135. 1260 poke53281,0:poke53280,0
  136. 1270 print"[147][154]  [193]re you sure you want to quit? (y[154]/n[154])"
  137. 1280 poke198,0:wait198,1:getag$
  138. 1290 ifag$="y"orag$="[217]"then1330
  139. 1295 ifothensys51459
  140. 1300 return
  141. 1320 rem quit
  142. 1330 goto40000
  143. 1380 rem data <title>,<border color>
  144. 1390 data 9
  145. 1400 data captain k.shp,0
  146. 1410 data before.shp,0
  147. 1420 data after.shp,0
  148. 1430 data sheepoid.shp,0
  149. 1440 data gastron.shp,0
  150. 1450 data g's house.shp,0
  151. 1460 data bridgeworld.shp,0
  152. 1470 data quadpod.shp,0
  153. 1480 data trash.shp,0
  154. 1500 :
  155. 1770 print"";
  156. 1800 :
  157. 1810 poke53281,6:poke53280,6
  158. 1820 print"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  159. 1830 forqx=1to13
  160. 1840 print"[221]"tab(38)"[221]":next
  161. 1850 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  162. 1860 forlx=217to217+26:pokelx,(peek(lx)or128):next
  163. 1870 print"[144]"
  164. 1872 printtab(fnd(1))an$(x,1):print"[155]"
  165. 1880 fori=2to12
  166. 1882 printtab(fnd(i))an$(x,i)
  167. 1886 next
  168. 1900 return
  169. 1910 kk=0
  170. 1915 poke214,14:print:print"[144]     [215]hile the slide is showing..."
  171. 1916 print"      [198]1 [158]- changes border color"
  172. 1917 print"      [198]3 [158]- changes background color"
  173. 1918 print"      [198]5 [158]- toggles light show"
  174. 1919 print"       [211] [158]- takes you to [211][193][214][197] routine"
  175. 1920 print"       [208] [158]- takes you to [208][210][201][206][212] routine"
  176. 1921 print"       [209] [158]- quits"
  177. 1925 poke214,23:print
  178. 1930 print"[144][208]ress [209] to quit - [193]ny other to continue[145]"
  179. 1940 kk=kk+1:geta$:ifa$<>""orkk>1000thenreturn
  180. 1950 goto1940
  181. 1980 :
  182. 1990 :
  183. 2000 print"[147]";:iffhthenpoke254,0:sysba:goto2040
  184. 2020 poke251,64:poke252,224:poke253,204
  185. 2030 sysun
  186. 2040 poke53280,c(x):poke252,224:poke253,204:syshgr:return
  187. 2050 return
  188. 10000 dv=peek(186):n$="b.star trip":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  189. 40000 fori=0to21:poke828+i,8+i:next
  190. 40010 ifdv<8ordv>29ordv=8then40030
  191. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  192. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  193. 40040 close2:open2,i,2:close2:ifstthen40060
  194. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  195. 40060 next:print"[147]":poke53272,23:poke186,8:end
  196. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  197. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  198. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  199. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  200. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to9:printz$:next
  201. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  202. 60030 z$(0)="[211] [212] [193] [210]   [212] [210] [201] [208]" :z$(1)="by [215]alt [200]arned
  203. 60040 z$(2)[178]"(len) 1995 by (NULL)oftdisk (NULL)ublishing"[170][199](13)
  204. 60050 z$(3)[178]"(NULL)his program is the copyrighted work
  205. 60060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]t is not"
  206. 60070 z$(5)="shareware or in the public domain."
  207. 60080 z$(6)="[212]o subscribe call 1-800-594-